home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / adynware / web_gen.pm < prev    next >
Encoding:
Text File  |  2000-04-09  |  20.9 KB  |  633 lines
  1. use strict;
  2. #use diagnostics;
  3. package web_gen;
  4. use adynware::utility_file;
  5. use IO::File;
  6. use adynware::web_site;
  7.  
  8. my %w__anchors = ();
  9. my %w__chunks = ();
  10. my @w__fileNames = ();
  11.  
  12.  
  13. my $web_gen__indexIsGenerated = 0;
  14. my $web_gen__linkmenuIsGenerated = 0;
  15. my $web_gen__inForm = 0; 
  16. my %web_gen__variables = ();
  17.  
  18. sub Init
  19. {
  20.         if (! -f "index.htm")
  21.         {
  22.                 my $file = new IO::File("> index.htm") or die "cannot create index.htm\n"; 
  23.                 $web_gen__indexIsGenerated = 1;
  24.                 my $indexContent =<<'EOS';
  25. <head>
  26. <title>@@siteTitle</title>
  27. </head>
  28. <html>
  29. <frameset rows="150,*">
  30. <frame name="header"  src="etc/header.html" scrolling="no" marginwidth="0" marginheight="0">
  31. <frameset rows="100%" cols="30%, 70%,*">
  32. <frame name="toc_frame"  src="etc/linkmenu.html" scrolling="no" marginwidth="0" marginheight="0">
  33. <frame name="content_frame" src="etc/home.html" scrolling="auto" marginwidth="0" marginheight="0">
  34. </frameset>
  35. </frameset>
  36. </html>
  37. EOS
  38.         print $file $indexContent;
  39.         $file->close();
  40.         }
  41. }
  42.  
  43. sub Cleanup
  44. {
  45.         unlink("index.htm") if $web_gen__indexIsGenerated;
  46.         unlink("etc/linkmenu.htm") if $web_gen__linkmenuIsGenerated;
  47. }
  48.  
  49. sub LinkMenu
  50. {
  51.         my($color_1, $color_2, $itemsReference) = @_;
  52.         #die "tmp file etc/linkmenu.htm already exists" if (-f "etc/linkmenu.htm");
  53.         $web_gen__linkmenuIsGenerated = 1;
  54.         my $file = new IO::File("> etc/linkmenu.htm") or die "cannot create etc/linkmenu.htm\n"; 
  55.         my $linkMenuStart =<<'EOS';
  56.         <html>
  57.         <head>
  58.         <base target="content_frame">
  59.         </head>
  60.         <body bgcolor=black link=white vlink=white text=white>
  61. EOS
  62.         print $file $linkMenuStart;
  63.         web_gen::Colored_table2($file, "100%", undef, 1, 25, $color_1, $color_2, $itemsReference);
  64.                                 
  65.         print $file "</body></html>";
  66.         $file->close();
  67. }
  68.  
  69.  
  70. sub SetVariables
  71. {
  72.         my($fileSpecification, $key, $value) = @_;
  73.         if (defined $fileSpecification)
  74.         {
  75.                 $web_gen__variables{$fileSpecification, $key} = $value;
  76.                 #print "web_gen__variables{$fileSpecification, $key} = $value;\n";
  77.         }
  78.         else
  79.         {
  80.                 $web_gen__variables{$key} = $value;
  81.                 #print "web_gen__variables{$key} = $value;\n";
  82.         } 
  83. }
  84.  
  85. sub GetVariable
  86. {
  87.         my($directory, $key, $mustResolve, $default) = @_;
  88.         my $value;
  89.         return $web_gen__variables{$directory, $key} if (defined $web_gen__variables{$directory, $key});
  90.         return $web_gen__variables{$key} if (defined $web_gen__variables{$key});
  91.         die "GetVariable($directory, $key): did not see anything" if $mustResolve;
  92.         return $default;
  93. }
  94.  
  95. sub InterpolateVariables
  96. {
  97.         my($fileName, $data) = @_;
  98.         $data = InterpolateVariables_2($fileName, $data, 0);
  99.         $fileName =~ m{(.*)/} or die "interpolate variables: cannot get directory out of $fileName";
  100.         my $directory = $1;
  101.         $data = InterpolateVariables_2($directory, $data, 1);
  102.         return $data;
  103. }
  104. sub InterpolateVariables_2
  105. {
  106.         my($fileSpecification, $data, $mustResolve) = @_;
  107.         $data =~ s/(\@\@([a-zA-Z]?\w*[a-zA-Z0-9])\{(.*?)\})/GetVariable($2, $3, $mustResolve, $1)/eg;
  108.         $data =~ s/(\@\@([a-zA-Z]?\w*[a-zA-Z0-9]))/GetVariable($fileSpecification, $2, $mustResolve, $1)/eg;
  109.         $data =~ s/(\@\@\{([a-zA-Z]?\w*[a-zA-Z0-9])\})/GetVariable($fileSpecification, $2, $mustResolve, $1)/eg;
  110.         return $data;
  111. }
  112.  
  113.  
  114. sub SiteHeader
  115. {
  116.         my($fileName, $title, $subtitle, $textReference, $color_1, $color_2) = @_;
  117.         web_gen::SetVariables(undef, "siteTitle", $title);
  118.         my @text = @$textReference;
  119.                                                 
  120.         my $file = new IO::File("> $fileName") or die "cannot open $fileName\n";
  121.                         
  122.         print $file "<html>\n";
  123.         print $file "<header>\n";
  124.         print $file "<title>$title</title>\n";
  125.         print $file "</header>\n";
  126.         print $file "<body bgcolor=black link=white vlink=white text=white>\n";
  127.                 
  128.         unshift(@text, ["<font size=7>$title</font><font size=5>$subtitle</font>"]);
  129.                 
  130.         Colored_table2($file, "100%", undef, 0, 0, $color_1, $color_2, \@text);
  131.         $file->close();
  132. } 
  133.  
  134.  
  135. sub Link
  136. {
  137.         my($linkText, $linkDestination) = @_;
  138.                 
  139.         if ($linkDestination =~ m{[ :/]})
  140.         {
  141.                 return "<a href=$linkDestination>" . $linkText . "</a>";
  142.         }
  143.         return "<!--link $linkDestination " . $linkText . "-->";
  144. }
  145.  
  146. sub FormBegin
  147. {
  148.         my($name) = @_;
  149.         $web_gen__inForm = 1;
  150.         return "<form name=$name>\n";
  151. }
  152. sub FormEnd
  153. {
  154.         $web_gen__inForm = 0;
  155.         return "</form>\n";
  156. }
  157.  
  158. sub Button
  159. {
  160.         my($name, $label, $attributes) = @_;
  161.         my $begin = "";
  162.         my $end = "";
  163.         if (!$web_gen__inForm)
  164.         {
  165.                 $begin = FormBegin("form_" . $name);
  166.                 $end = FormEnd();
  167.         }
  168.  
  169.         return "$begin <input type=button value='$label' name=$name $attributes> $end";
  170. }
  171.  
  172. sub Select
  173. {
  174.         my($fieldName, $attributes, $displaySize, $valueArrayReference, $labelArrayReference) = @_;
  175.         my $field = "<select name=$fieldName size=$displaySize $attributes";
  176.         $field .= ">\n";
  177.                 
  178.         my @valueArray = (); @valueArray = @$valueArrayReference if defined $valueArrayReference;
  179.         my @labelArray = (); @labelArray = @$labelArrayReference if defined $labelArrayReference;
  180.         
  181.         die "web_gen::Select: mismatched value and label arrays" unless scalar(@valueArray)==scalar(@labelArray);
  182.                 
  183.         for (my $j = 0; $j < scalar(@valueArray); $j++)
  184.         {
  185.                 $field .= "<option ";
  186.                 $field .= "selected " unless $j;
  187.                 $field .= "value='$valueArray[$j]'>$labelArray[$j]\n";
  188.         }
  189.         $field .= "</select>\n";
  190.         return $field;
  191. }
  192.  
  193. sub Radio
  194. {
  195.         my($fieldName, $valueArrayReference, $labelArrayReference, $selectedValue, $attributes) = @_;
  196.         my $field = "";
  197.                 
  198.         my @valueArray = (); @valueArray = @$valueArrayReference if defined $valueArrayReference;
  199.         my @labelArray = (); @labelArray = @$labelArrayReference if defined $labelArrayReference;
  200.         
  201.         die "web_gen::Radio: mismatched value and label arrays" unless scalar(@valueArray)==scalar(@labelArray);
  202.                 
  203.         for (my $j = 0; $j < scalar(@valueArray); $j++)
  204.         {
  205.                 $field .= "<input type=radio name=$fieldName ";
  206.                 $field .= "checked " if ($valueArray[$j] eq $selectedValue);
  207.                 $field .= "$attributes value='$valueArray[$j]'>$labelArray[$j]<br>\n";
  208.         }
  209.         return $field;
  210. }
  211.  
  212.  
  213. sub CheckBox
  214. {
  215.         my($fieldName, $value, $checked, $label, $attributes) = @_;
  216.         my $field = "<input type=checkbox name=$fieldName value='$value'";
  217.         if ($checked)
  218.         {
  219.                 $field .= " checked";
  220.         }
  221.         $field .= " $attributes>$label\n";
  222.         return $field;
  223. }
  224.  
  225. sub TextField
  226. {
  227.         my($fieldName, $displayLength, $attributes) = @_;
  228.         return "<input type=text name=$fieldName size=$displayLength $attributes>";
  229. }
  230.  
  231. sub Colored_table
  232. {
  233.         my($fileName, $width, $formName, $cellspacing, $rowCount, $colorStart, $colorEnd, $rowsReference) = @_;
  234.                         
  235.         my $file = new IO::File("> $fileName") or die "cannot open $fileName\n";
  236.                                 
  237.         Index_preamble($file);
  238.         print $file "<body bgcolor=black link=white vlink=white text=white>\n";
  239.         
  240.         Colored_table2($file, $width, $formName, $cellspacing, $rowCount, $colorStart, $colorEnd, $rowsReference);
  241.         $file->close();
  242. }
  243.  
  244. sub Colored_table2
  245. {
  246.         my($file, $width, $formName, $cellspacing, $rowCount, $colorStart, $colorEnd, $rowsReference) = @_;
  247.                                                         
  248.         (length($colorStart)==6) || die "$colorStart parameter is not a 6-digit hex number";
  249.         (length($colorEnd  )==6) || die "$colorEnd   parameter is not a 6-digit hex number";
  250.                 
  251.         my   $redStart = hex(substr($colorStart, 0, 2));
  252.         my $greenStart = hex(substr($colorStart, 2, 2));
  253.         my  $blueStart = hex(substr($colorStart, 4, 2));
  254.                 
  255.         my   $redEnd = hex(substr($colorEnd, 0, 2));
  256.         my $greenEnd = hex(substr($colorEnd, 2, 2));
  257.         my  $blueEnd = hex(substr($colorEnd, 4, 2));
  258.                 
  259.         my @rows = @$rowsReference;
  260.         $rowCount = scalar(@rows) unless $rowCount; 
  261.         
  262.         print $file "<form name=$formName>\n" if $formName;
  263.         print $file "<table bgcolor=black width=$width cellpadding=0 cellspacing=$cellspacing border=0>\n";
  264.                                 
  265.         my $red = $redStart;
  266.         my $redIncrement = int(($redEnd - $redStart)/$rowCount);
  267.         my $green = $greenStart;
  268.         my $greenIncrement = int(($greenEnd - $greenStart)/$rowCount);
  269.         my $blue = $blueStart;
  270.         my $blueIncrement = int(($blueEnd - $blueStart)/$rowCount);
  271.         
  272.         my $firstRowReference = $rows[0];
  273.         my $columnCount = scalar(@$firstRowReference);
  274.                                 
  275.         for (my $row = 0; $row < $rowCount; $row++)
  276.         {
  277.                 my $color = sprintf("%0.2x%0.2x%0.2x", $red, $green, $blue);
  278.                                                                                         
  279.                 print $file "<tr>\n";
  280.                 if ($row < scalar(@rows))
  281.                 {
  282.                         my $rowReference = $rows[$row];
  283.                         my @columns;
  284.                         if (defined $rowReference)
  285.                         {
  286.                                 @columns = @$rowReference;
  287.                         }
  288.                         else
  289.                         {
  290.                                 @columns = ( undef );
  291.                         }
  292.                         
  293.                         for (my $column = 0; $column < $columnCount; $column++)
  294.                         {
  295.                                 my $text = $columns[$column];
  296.                                 $text = " " unless defined $text;
  297.                                 
  298.                                 print $file "<td bgcolor=#$color> $text</td>\n";
  299.                         }
  300.                 }
  301.                 else
  302.                 {
  303.                         for (my $column = 0; $column < $columnCount; $column++)
  304.                         {
  305.                                 print $file "<td bgcolor=#$color> </td>\n";
  306.                         }
  307.                 }
  308.                 print $file "</tr>\n";
  309.                 $red += $redIncrement;
  310.                 $green += $greenIncrement;
  311.                 $blue += $blueIncrement;
  312.         }
  313.         print $file "</table>\n";
  314.         print $file "</form>\n" if $formName;
  315. }
  316.  
  317. sub DocumentBegin
  318. {
  319.         my($title, $fileName) = @_;
  320.         my $anchorName = $fileName;
  321.         $anchorName =~ s|/|_|g;
  322.         $anchorName =~ s/\.[^\.]*//;
  323.         
  324.         return "<html>
  325.         <head>
  326.         <title>$title</title>
  327.         </head>
  328.         <body bgcolor=#cccce2>
  329.         <!--anchor file_" . $anchorName . "-->
  330.         ";                
  331. }
  332. sub DocumentEnd
  333. {
  334.         return "\n<!--include copyright-->\n</body>\n</html>";
  335. }
  336.  
  337. sub ReadFAQElement
  338. {
  339.         my($input) = @_;
  340.         my $element = <$input>;
  341.         return 0 unless $element;
  342.         $element =~ s/^(.)/\U$1/;    # capitalize
  343.         while (<$input>)
  344.         {
  345.                 last unless ($_ and ($_ ne "\n"));
  346.                 $element .= $_;
  347.         }
  348.         $element =~ s/\s*$//;        # trim trailing white
  349.         return $element;
  350. }
  351.  
  352. sub GenerateFAQ
  353. {
  354.         my($inFileName) = @_;
  355.         #print "GenerateFAQ $inFileName\n";
  356.         die "bad FAQ file name (expected '.faq' suffix)" unless $inFileName =~ /(.*)\.FAQ/i;
  357.         my $outFileName = "$1.htm";
  358.         
  359.         my  $input = new IO::File("<  $inFileName") or die "could not open $inFileName";
  360.         my $output = new IO::File("> $outFileName") or die "could not open $outFileName";
  361.  
  362.         print $output DocumentBegin("\@\@product FAQ", $outFileName);
  363.         print $output "<h1>\@\@product FAQ</h1>";
  364.  
  365.         my @questions = ();
  366.         my @answers = ();
  367.         for (my $j = 1;; $j++)
  368.         {
  369.                 my $question = ReadFAQElement($input);
  370.                 last unless $question;
  371.                 $questions[$j-1] = $question;
  372.                 $answers[$j-1] = ReadFAQElement($input);
  373.         }
  374.         $input->close();
  375.                                 
  376.         for (my $j = 1; $j <= scalar(@questions); $j++)
  377.         {
  378.                 print $output "<p><a href=#$j>", $j, ". $questions[$j-1]?</a>\n";
  379.         }
  380.         for (my $j = 1; $j <= scalar(@questions); $j++)
  381.         {
  382.                 print $output "<h3><a name=$j>", $j, ". $questions[$j-1]?</a></h3>\n";
  383.                 print $output $answers[$j-1];
  384.         }
  385.  
  386.         print $output DocumentEnd();
  387.         $output->close();
  388. }
  389.  
  390. sub Gather_input_document_list
  391. {
  392.         my($suffix, @directories) = @_;
  393.         push(@directories, ".");
  394.         
  395.         @w__fileNames = ();
  396.         foreach my $directory (@directories)
  397.         {
  398.                 opendir(DIR, $directory) or die "cannot open directory $directory:$!";
  399.                 foreach my $file (readdir(DIR))
  400.                 {
  401.                         if ($file =~ /\.$suffix$/)
  402.                         {
  403.                                 push(@w__fileNames, "$directory/$file");
  404.                         }
  405.                 }
  406.                 closedir(DIR);
  407.         }
  408. }
  409.  
  410. sub GenerateFAQs
  411. {
  412.         my(@directories) = @_;
  413.         Gather_input_document_list("faq", @directories);
  414.         foreach my $fileName (@w__fileNames)
  415.         {
  416.                 GenerateFAQ($fileName);
  417.         }
  418. }
  419.  
  420.  
  421. sub Gather_chunks_in_string
  422. {
  423.         my($rawContent, $fileName) = @_;
  424.         #print "Gather_chunksin string($rawContent, $fileName) \n";
  425.         while ($rawContent =~ /(<!--chunk ([@\w]+)-->(.*?)<!--chunkEnd \2-->)/gs)
  426.         {
  427.                 my $chunkContentIncludingTags = $1;
  428.                 my $chunkName = $2;
  429.                 my $chunkContent = $3;
  430.                                                 
  431.                 #print "saw chunk $chunkName in $fileName\n";
  432.                 defined $w__chunks{$chunkName} and die "chunk $chunkName multiply defined";
  433.                 $chunkContentIncludingTags =~ s/(<!--anchor) /$1: copy /g;
  434.                 
  435.                 $w__chunks{ $chunkName} = $chunkContentIncludingTags; 
  436.                 Gather_chunks_in_string($chunkContent, $fileName);
  437.         }
  438. }
  439.  
  440. sub Gather_chunks
  441. {
  442.         foreach my $fileName (@w__fileNames)                
  443.         { 
  444.                 my $rawContent = utility_file::getContent("$fileName");
  445.                 Gather_chunks_in_string($rawContent, $fileName);
  446.         }
  447. }
  448.  
  449. sub Gather_links2
  450. {
  451.         my($copies) = @_;
  452.         foreach my $inputFileName (@w__fileNames) 
  453.         { 
  454.                 my $fileName = $inputFileName . "l";
  455.                 my $rawContent = utility_file::getContent("$fileName");
  456.                 while ($rawContent =~ /<!--anchor$copies ([@\w]+)-->/g)
  457.                 {
  458.                         if (defined $w__anchors{$1})
  459.                         {
  460.                                 if ($copies)
  461.                                 {
  462.                                         #print "ignored copied anchor $1 in $fileName\n";
  463.                                 }
  464.                                 else
  465.                                 {
  466.                                         die "anchor $1 multiply defined in $fileName";
  467.                                 }
  468.                         }
  469.                         else
  470.                         {
  471.                                 #print "anchor $1 in $fileName\n";
  472.                                 $w__anchors{$1} = "$fileName" . "#$1";
  473.                         }
  474.                 }
  475.         }
  476. }
  477.  
  478. sub Gather_links
  479. {
  480.         Gather_links2("");
  481.         Gather_links2(": copy");
  482. }
  483.  
  484.  
  485. sub AccessHash
  486. {
  487.         my($hashElementName, $key, $hashReference, $fileName) = @_;
  488.         my $value = $$hashReference{$key};
  489.         die "!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n!\n$key is not a defined $hashElementName in $fileName" unless defined $value;
  490.         return $value;
  491. }
  492.  
  493. sub ResolveLink
  494. {
  495.         my($fileName, $logicalLinkName, $hashReference) = @_;
  496.         my $link = AccessHash("anchor", $logicalLinkName, $hashReference, $fileName);
  497.                                                 
  498.         my $offset = "";
  499.         $offset = $1 if $link =~ s/(#.*)//;
  500.                                 
  501.         $offset = "" if $offset =~ /^#file_/;
  502.                         
  503.                 
  504.         my $resolvedLink;
  505.         if ($link eq $fileName)
  506.         {
  507.                 $resolvedLink = $offset; 
  508.         }
  509.         else
  510.         {
  511.                 my $level = utility_file::directoryDepth($fileName);
  512.                 $resolvedLink = "";
  513.                 for (my $j = 0; $j < $level; $j++)
  514.                 {
  515.                         $resolvedLink .= "../";
  516.                 }
  517.                 $resolvedLink .= $link;
  518.                 $resolvedLink .= $offset;
  519.         }
  520.         return $resolvedLink;
  521. }
  522.  
  523. sub EvaluateIf
  524. {
  525.         my($expression, $data, $fileName) = @_;
  526.         #print STDERR "about to evaluate '$expression' in EvaluateIf in $fileName\n";
  527.         my $value = eval($expression);
  528.         if ($@)
  529.         {
  530.                 print STDERR "error evaluating '$expression' in EvaluateIf in $fileName\n";
  531.                 return "";
  532.         }
  533.         return $data if $value;
  534.         return "";
  535. }
  536.  
  537. sub Resolve_chunks_in_string
  538. {
  539.         my($content, $fileName) = @_;
  540.         $content =~ s/(<!--include ([@\w]+)-->)/$1 . Resolve_chunks_in_string(AccessHash("chunk", $2, \%w__chunks, $fileName), $fileName)/ge;
  541.         return $content;
  542. }
  543.  
  544. sub Resolve_chunks
  545. {
  546.         foreach my $inputFileName (@w__fileNames)                
  547.         { 
  548.                 my $rawContent = utility_file::getContent("$inputFileName");
  549.                 my $fileName = $inputFileName . "l";
  550.                 utility_file::setContent($fileName, Resolve_chunks_in_string($rawContent, $fileName));
  551.         }
  552. }
  553.  
  554.  
  555. sub Resolve_links_and_includes
  556. {
  557.         Gather_chunks();
  558.         Resolve_chunks();
  559.         foreach my $inputFileName (@w__fileNames)                
  560.         {
  561.         #print "c:/perl/lib/adynware/web_gen.pm Resolve_links_and_includes($inputFileName)\n";
  562.         
  563.                 my $fileName = $inputFileName . "l";
  564.                 my $content = utility_file::getContent("$fileName");
  565.                                                 
  566.                 $content = InterpolateVariables($fileName, $content); 
  567.                 $content =~ s/(<!--if +(.*?)-->.*?<!--endif \2-->)/EvaluateIf($2, $1, $fileName)/egms;
  568.                 
  569.                 utility_file::setContent($fileName, $content);
  570.         }
  571.         Gather_links();
  572.         foreach my $inputFileName (@w__fileNames)                
  573.         {
  574.                 my $fileName = $inputFileName . "l";
  575.                 my $content = utility_file::getContent("$fileName");
  576.                                                                 
  577.                 $content =~ s{(<!--anchor(: copy)? (\w+)-->)}{$1<a name=$3></a>}g;
  578.                 $content =~ s{(<!--link +(\w+) (.*?)-->)}{"$1<a href=" . ResolveLink($fileName, $2, \%w__anchors) . ">$3</a>"}egms;
  579.                                                 
  580.                 utility_file::setContent($fileName, $content);
  581.         }
  582. }
  583.  
  584. sub Strip_comments
  585. {
  586.         foreach my $inputFileName (@w__fileNames)                
  587.         {
  588.                 my $fileName = $inputFileName . "l";
  589.                 my $content = utility_file::getContent("$fileName");
  590.                 $content =~ s/<!--.*?-->//gs;
  591.                 utility_file::setContent($fileName, $content);
  592.         }
  593. }
  594.  
  595.  
  596.  
  597. sub Get_links_to_be_verified
  598. {
  599.         my %linksToBeVerified = ();
  600.         foreach my $inputFileName (@w__fileNames)                
  601.         {
  602.                 my $fileName = $inputFileName . "l";
  603.                 my $content = utility_file::getContent("$fileName");
  604.                                                                 
  605.                 while ($content =~ m{(-->)?<a href=['"]?([^'"\s>]*)}gms)
  606.                 {
  607.                         next if $1;
  608.                         my $link = $2;
  609.                         next if $link =~ /^#\d+$/;  # next if this is a generated faq link we can trust
  610.                         $link = web_site::makeAbsolute($link, $fileName);
  611.                         next if $link !~ m{^https?://}; # we only check http, https
  612.                         print "verify links: saw $link in $fileName\n";
  613.                         $linksToBeVerified{$link} = 1;
  614.                 }
  615.         }
  616.         return [keys %linksToBeVerified];
  617. }
  618.  
  619. sub web_gen__variable_get
  620. {
  621.         my($fileSpecification, $variable) = @_;
  622.         my $value = $web_gen__variables{$fileSpecification, $variable};
  623.         return $value if defined $value;
  624.                 
  625.         
  626.         $fileSpecification =~ m{(.*)/} or die "web_gen__variable_get: cannot get directory out of $fileSpecification";
  627.         my $directory = $1;
  628.         $value = $web_gen__variables{$directory, $variable};
  629.         return $value if defined $value;
  630.         return 0;
  631. }
  632. 1;
  633.